home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / dtghcur.gf < prev    next >
Encoding:
Text File  |  1994-02-17  |  275 b   |  13 lines
  1. function dtghcur(dtgh)
  2. *
  3. *  convert dtg to GrADS time
  4. *
  5.  moname='JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC'
  6.   iyr=substr(dtgh,1,2)*1
  7.   imo=substr(dtgh,3,2)*1
  8.   ida=substr(dtgh,5,2)*1
  9.   ihr=substr(dtgh,7,2)*1
  10.   nmo=subwrd(moname,imo)
  11.   imo=i
  12. return (ihr%'Z'ida%nmo%iyr)
  13.